(etags-list-tags): When there is an explicit tag name, skip the \177 before

it.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 8954b1364b63707c0cd98885dbccf3c1f9801049..0afff9a937490853675760a064b6c416b37762a8 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1132,7 +1132,7 @@ See documentation of variable `tags-file-name'."
                                          (point)))))
        (princ (if (looking-at "[^\n]+\001")
                   ;; There is an explicit tag name; use that.
-                  (buffer-substring (point)
+                  (buffer-substring (1+ (point)) ;skip \177
                                     (progn (skip-chars-forward "^\001")
                                            (point)))
                 tag)))